home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The 640 MEG Shareware Studio 4
/
The 640 Meg Shareware Studio CD-ROM Volume IV (Data Express)(1994).ISO
/
wp
/
boxit010.zip
/
BOXIT.MNU
< prev
next >
Wrap
Text File
|
1993-06-24
|
6KB
|
200 lines
/*
┌╥─────────────────────────────────────────────────────────────────────╥┐
│║ Macro Title: BoxIt! ║│
│║ Version....: 0.10 for TSE 1.0 Pre-Release ║│
│║ Author.....: George J. De Bruin ║│
│║ Address....: 1414 Shiloh Rd. Apt/Box 511 ║│
│║ Plano, TX 75074 ║│
│║ Phone......: (214) 422-0266 ║│
│║ BBS Contact: Qedit support conferences on the following Mail Nets: ║│
│║ RIME, Ilink, Intelec, Metrolink, FidoNet, EchoNet. ║│
│║ Also available via the Ilink Editor's Conference, and ║│
│║ directly on SemWare's Support BBS. ║│
│╟─────────────────────────────────────────────────────────────────────╢│
│║ This macro is hereby released as freeware. Anyone may use ║│
│║ or modify it in any way they see fit. Future versions may carry ║│
│║ more notices on distributing modified versions of BoxIt! ║│
│╟─────────────────────────────────────────────────────────────────────╢│
│║ R E L E A S E N O T I C E ║│
│║ ║│
│║ This macro is officially released to SemWare for possible ║│
│║ distribution in conjunction with The SemWare Editor, or an ancillary║│
│║ macro collection. ║│
│╟─────────────────────────────────────────────────────────────────────╢│
│║ Purpose: ║│
│║ ║│
│║ This is a simple macro that will draw a box around column blocked ║│
│║ area using TSE's internal line drawing mode. *ONLY* column blocks ║│
│║ are supported at this time. ║│
└╨─────────────────────────────────────────────────────────────────────╨┘
*/
/* ─────────────────────────────────────────────────────────────────── */
menu BoxItAbout()
" BoxIt! 0.10",
,
dontclose,
"See Help / History for details."
"For TSE 1.0 -- Pre-Release",
,
skip
" Released: 06/24/93",
,
skip
"",
,
divide
"Author: George J. De Bruin",
,
dontclose,
"See Help / Author for information on contacting the author."
" Team TSE",
,
skip
end BoxItAbout
/* ─────────────────────────────────────────────────────────────────── */
menu BoxSides()
History
"&Global" [StrBoxGlobal(BoxGlobal):4],
SetAllSides(),
CloseAfter,
"Set all sides On or Off."
"",,divide
"&Top" [StrOnOff(BoxTop):3],
OptToggle(BoxTop),
DontClose,
"Toggle Top side On or Off."
"&Bottom" [StrOnOff(BoxBottom):3],
OptToggle(BoxBottom),
DontClose,
"Toggle Bottom side On or Off."
"&Left" [StrOnOff(BoxLeft):3],
OptToggle(BoxLeft),
DontClose,
"Toggle Left side On or Off."
"&Right" [StrOnOff(BoxRight):3],
OptToggle(BoxRight),
DontClose,
"Toggle Right side On or Off."
end BoxSides
/* ─────────────────────────────────────────────────────────────────── */
menu BoxGaps()
History
"&Global" [GlobalGap:5],
SetAllGaps(),
CloseAfter,
"Set Gap for all sides of box."
"",,divide
"&Top" [TopGap:5],
NumRead(TopGap),
DontClose,
"Set gap between top of block and top of box."
"&Bottom" [BottomGap:5],
NumRead(BottomGap),
DontClose,
"Set gap between bottom of block and bottom of box."
"&Left" [LeftGap:5],
NumRead(LeftGap),
DontClose,
"Set gap between left side of block and left side of box."
"&Right" [RightGap:5],
NumRead(RightGap),
DontClose,
"Set gap between right side of block and right side of box."
end BoxGaps
/* ─────────────────────────────────────────────────────────────────── */
menu BoxHelp()
History
"&Error Messages",
ShowHelp(ErrorMsgs),
CloseBefore,
"Help with error / warning messages."
"&Gap Settings",
ShowHelp(GapSettings),
CloseBefore,
"Help on setting gaps."
"&Keys",
ShowHelp(QuickKeyRef),
CloseBefore,
"Quick key reference."
"&Line Type Setting",
ShowHelp(LineSettings),
CloseBefore,
"Help on Line Type Settings."
"&Side Toggles",
ShowHelp(SideToggles),
CloseBefore,
"Help on setting side toggles."
"&Using BoxIt!",
ShowHelp(UsingBoxIt),
CloseBefore,
"Help with marking a block."
"",,divide
"&Author",
ShowHelp(Author),
CloseBefore,
"A short Bio, and how to contact the author."
"BoxIt! &History",
ShowHelp(History),
CloseBefore,
"BoxIt! History Information."
end BoxHelp
/* ─────────────────────────────────────────────────────────────────── */
menu BoxItMnu()
"&BoxIt! ", BoxIt(), CloseAllBefore, "Draw box NOW!"
end BoxItMnu
/* ─────────────────────────────────────────────────────────────────── */
menu BoxLine()
"&Line Type ", LineTypeMenu(), dontclose, "Select Line Type."
end BoxLine
/* ─────────────────────────────────────────────────────────────────── */
menubar BoxItMnuBar()
History
"≡", BoxItAbout()
"&BoxIt!", BoxItMnu()
"&Side Toggles", BoxSides()
"&Gap Settings", BoxGaps()
"&Line Type", BoxLine()
"&Help", BoxHelp()
end BoxItMnuBar